home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / irq init (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  368b  |  29 lines
  1. 9 rem lo byte interrupt anfang
  2. 10 letl=00
  3. 19 rem hi byte interrupt anfang
  4. 20 leth=128
  5. 30 leta=h*256
  6. 40 leta=a+l
  7. 50 letb=a
  8. 60 letc=peek(b)
  9. 70 ifc<32then190
  10. 80 ifc>32then190
  11. 90 letc=b+1
  12. 100 letc=peek(c)
  13. 110 ifc<49then190
  14. 120 ifc>49then190
  15. 130 letc=b+2
  16. 140 letc=peek(c)
  17. 150 ifc<234then190
  18. 160 ifc>234then190
  19. 170 pokeb,76
  20. 180 goto210
  21. 190 letb=b+1
  22. 200 goto60
  23. 210 leta=24696
  24. 220 sys828
  25. 230 poke788,l
  26. 240 poke789,h
  27. 250 leta=24664
  28. 260 sys828
  29.